home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbpacket.zip / NETPAY.BAS < prev    next >
BASIC Source File  |  1991-11-25  |  1KB  |  63 lines
  1. REM NET PAY PROGRAM
  2. DECLARE SUB Calculate (Wage)
  3.  
  4. DIM SHARED Net, Wage
  5.  
  6. CLS
  7.  
  8. DO
  9.    DO UNTIL Wage1 > 0
  10.       INPUT "What are your wages (annually or hourly)"; Wage1
  11.    LOOP
  12.    DO
  13.       INPUT "Is this hourly or annually wages (H/A)"; X$
  14.       SELECT CASE X$
  15.          CASE "H", "h"
  16.             DO UNTIL Hourly > 0
  17.                INPUT "How many hours a week do you work"; Hourly
  18.             LOOP
  19.             Wage = Wage1 * Hourly
  20.             EXIT DO
  21.          CASE "A", "a"
  22.             Wage = Wage1 / 52
  23.             EXIT DO
  24.          CASE ELSE
  25.             PRINT "Bad boy (or girl)!"
  26.       END SELECT
  27.    LOOP
  28.    Calculate Wage
  29.    PRINT "For a wage of $"; RIGHT$(STR$(Wage1), LEN(STR$(Wage1)) - 1); " the weekly pay is ";
  30.    PRINT USING "$$#########,.##"; Wage
  31.    PRINT "and the net pay is:";
  32.    PRINT USING "$$#########,.##"; Net
  33.    DO
  34.       INPUT "Again (Y/N)"; A$
  35.       SELECT CASE A$
  36.          CASE "Y", "y"
  37.             CLS
  38.             CLEAR
  39.             EXIT DO
  40.          CASE "N", "n"
  41.             END
  42.          CASE ELSE
  43.       END SELECT
  44.    LOOP
  45. LOOP
  46. END
  47.  
  48.    
  49.  
  50. SUB Calculate (Wage)
  51.    MRT = Wage * .0625
  52.    Fica = Wage * .0765
  53.    A = Wage * 52
  54.    IF A > 15000 THEN
  55.       FIT = Wage * .28
  56.    ELSE
  57.       FIT = Wage * .15
  58.    END IF
  59.    SubTotal = MRT + Fica + FIT
  60.    Net = Wage - SubTotal
  61. END SUB
  62.  
  63.